home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / maske datas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  8KB  |  151 lines
  1. 10 rem---------------------------------
  2. 20 rem up maske  (datas)
  3. 30 rem   jacques effenberg
  4. 40 rem---------------------------------
  5. 50 :
  6. 1000 dimp(115):fori=0to115:readx:p(i)=x:sp=sp+x:next
  7. 1010 data1249,1266,1206,1429,1453,1416,1184,1949,1754,1732
  8. 1020 data1665,1376,1854,1202,1653,1611,2033,1588,1979,1674
  9. 1030 data1433,1523,1343,1359,1493,1984,1744,1413,1649,1693
  10. 1040 data1883,1478,1422,1121,1447,1745,1952,1318,1747,1954
  11. 1050 data1519,1860,1592,1701,1429,2066,1590,1986,1392,2063
  12. 1060 data1762,1649,1811,1225,1887,1537,1512,1552,1640,1510
  13. 1070 data1878,1306,1379,1529,1544,1473,1799,1798,1244,1667
  14. 1080 data1282,1244,1703,1404,1342,1319,1350,1372,1414,1392
  15. 1090 data1433,1529,1708,2062,1481,1995,1689,1918,1744,2013
  16. 1100 data2050,1369,1363,1623,1454,1322,1282,1264,934,668
  17. 1110 data808,793,677,826,723,762,716,661,752,763
  18. 1120 data736,827,564,788,759,387
  19. 1130 ifsp<>168139thenprint"fehler pruefsumme !":end
  20. 1140 fori=49152to50539:readx:pokei,x:s=s+x
  21. 1150 z1=z1+1:s1=s1+x
  22. 1160 ifz1=12ands<>p(p1)then1210
  23. 1170 ifz1=12thenp1=p1+1:s=0:z1=0
  24. 1180 next
  25. 1190 ifs1<>168139thenprint"fehler letzte reihe data !":end
  26. 1200 print"ok.":end
  27. 1210 z$=str$(peek(64)*256+peek(63))
  28. 1220 z1=len(z$)-1:z2=2:sp=633:printchr$(147)
  29. 1230 fori=0toz1-1:z(i)=val(mid$(z$,z2,1)):z2=z2+1:next
  30. 1240 print" ** fehler in zeile : "z$
  31. 1250 poke631,76:poke632,105
  32. 1260 fori=0toz1-1:pokesp,z(i)+48:sp=sp+1:next
  33. 1270 pokesp+1,13:poke198,z1+4
  34. 1280 end
  35. 1290 data 169, 0, 141, 169, 2, 141, 170, 2, 141, 171, 2, 141
  36. 1300 data 172, 2, 141, 173, 2, 141, 174, 2, 141, 175, 2, 141
  37. 1310 data 176, 2, 32, 43, 193, 224, 2, 176, 45, 142, 169, 2
  38. 1320 data 32, 43, 193, 202, 48, 52, 224, 25, 176, 48, 134, 252
  39. 1330 data 32, 43, 193, 202, 48, 56, 224, 40, 176, 52, 134, 253
  40. 1340 data 32, 43, 193, 32, 126, 192, 134, 254, 32, 43, 193, 142
  41. 1350 data 168, 2, 32, 20, 193, 96, 32, 68, 229, 162, 150, 32
  42. 1360 data 167, 192, 232, 224, 180, 208, 248, 32, 174, 192, 32, 68
  43. 1370 data 229, 162, 0, 32, 167, 192, 232, 224, 28, 208, 248, 32
  44. 1380 data 174, 192, 32, 68, 229, 162, 28, 32, 167, 192, 232, 224
  45. 1390 data 56, 208, 248, 32, 174, 192, 32, 182, 192, 173, 174, 2
  46. 1400 data 208, 1, 96, 32, 68, 229, 174, 175, 2, 32, 167, 192
  47. 1410 data 232, 236, 176, 2, 208, 247, 32, 174, 192, 165, 57, 133
  48. 1420 data 20, 165, 58, 133, 21, 32, 19, 166, 32, 201, 166, 189
  49. 1430 data 153, 196, 32, 210, 255, 96, 169, 13, 32, 210, 255, 32
  50. 1440 data 153, 192, 138, 240, 49, 173, 169, 2, 208, 22, 224, 41
  51. 1450 data 176, 40, 202, 169, 39, 56, 229, 253, 133, 254, 228, 254
  52. 1460 data 176, 2, 232, 96, 208, 38, 232, 96, 224, 26, 240, 18
  53. 1470 data 202, 169, 24, 56, 229, 252, 133, 254, 228, 254, 176, 2
  54. 1480 data 232, 96, 208, 30, 232, 96, 238, 174, 2, 169, 56, 141
  55. 1490 data 175, 2, 169, 89, 141, 176, 2, 96, 238, 174, 2, 169
  56. 1500 data 89, 141, 175, 2, 169, 120, 141, 176, 2, 96, 238, 174
  57. 1510 data 2, 169, 120, 141, 175, 2, 169, 150, 141, 176, 2, 96
  58. 1520 data 173, 169, 2, 201, 1, 240, 4, 32, 74, 193, 96, 174
  59. 1530 data 169, 2, 189, 126, 196, 133, 251, 32, 74, 193, 96, 32
  60. 1540 data 253, 174, 32, 158, 183, 96, 166, 252, 32, 240, 233, 165
  61. 1550 data 253, 240, 11, 165, 209, 24, 101, 253, 133, 209, 144, 2
  62. 1560 data 230, 210, 32, 36, 234, 96, 32, 50, 193, 160, 0, 140
  63. 1570 data 170, 2, 32, 139, 193, 165, 251, 145, 209, 173, 168, 2
  64. 1580 data 145, 243, 173, 169, 2, 201, 1, 240, 9, 200, 140, 170
  65. 1590 data 2, 196, 254, 208, 22, 96, 238, 173, 2, 198, 254, 240
  66. 1600 data 13, 230, 252, 32, 50, 193, 32, 139, 193, 173, 169, 2
  67. 1610 data 16, 211, 96, 32, 139, 193, 173, 169, 2, 16, 202, 173
  68. 1620 data 169, 2, 201, 1, 240, 4, 32, 112, 194, 96, 32, 38
  69. 1630 data 195, 96, 173, 169, 2, 208, 36, 173, 171, 2, 208, 14
  70. 1640 data 198, 252, 32, 50, 193, 32, 231, 193, 230, 252, 32, 50
  71. 1650 data 193, 96, 230, 252, 32, 50, 193, 32, 231, 193, 198, 252
  72. 1660 data 32, 50, 193, 206, 171, 2, 96, 173, 171, 2, 208, 14
  73. 1670 data 198, 253, 32, 50, 193, 32, 231, 193, 230, 253, 32, 50
  74. 1680 data 193, 96, 230, 253, 32, 50, 193, 32, 231, 193, 198, 253
  75. 1690 data 32, 50, 193, 206, 171, 2, 96, 162, 0, 177, 209, 221
  76. 1700 data 126, 196, 240, 33, 232, 224, 11, 208, 246, 173, 169, 2
  77. 1710 data 208, 11, 162, 0, 189, 126, 196, 133, 251, 142, 172, 2
  78. 1720 data 96, 162, 0, 142, 172, 2, 232, 189, 126, 196, 133, 251
  79. 1730 data 96, 173, 169, 2, 208, 45, 173, 171, 2, 208, 20, 162
  80. 1740 data 0, 177, 209, 221, 141, 196, 240, 214, 232, 224, 4, 208
  81. 1750 data 246, 162, 1, 142, 172, 2, 96, 162, 0, 177, 209, 221
  82. 1760 data 137, 196, 240, 194, 232, 224, 4, 208, 246, 162, 1, 142
  83. 1770 data 172, 2, 96, 173, 171, 2, 208, 20, 162, 0, 177, 209
  84. 1780 data 221, 149, 196, 240, 180, 232, 224, 4, 208, 246, 162, 1
  85. 1790 data 142, 172, 2, 96, 162, 0, 177, 209, 221, 145, 196, 240
  86. 1800 data 160, 232, 224, 4, 208, 246, 162, 1, 142, 172, 2, 96
  87. 1810 data 165, 252, 208, 51, 238, 171, 2, 32, 154, 193, 173, 172
  88. 1820 data 2, 208, 1, 96, 173, 170, 2, 208, 8, 162, 6, 189
  89. 1830 data 126, 196, 133, 251, 96, 165, 254, 56, 237, 170, 2, 201
  90. 1840 data 1, 208, 8, 162, 5, 189, 126, 196, 133, 251, 96, 162
  91. 1850 data 8, 189, 126, 196, 133, 251, 96, 201, 24, 208, 48, 32
  92. 1860 data 154, 193, 173, 172, 2, 208, 1, 96, 173, 170, 2, 208
  93. 1870 data 8, 162, 4, 189, 126, 196, 133, 251, 96, 165, 254, 56
  94. 1880 data 237, 170, 2, 201, 1, 208, 8, 162, 10, 189, 126, 196
  95. 1890 data 133, 251, 96, 162, 7, 189, 126, 196, 133, 251, 96, 238
  96. 1900 data 171, 2, 32, 154, 193, 173, 172, 2, 208, 13, 32, 154
  97. 1910 data 193, 173, 172, 2, 208, 1, 96, 32, 180, 194, 96, 32
  98. 1920 data 154, 193, 173, 172, 2, 208, 4, 32, 128, 194, 96, 173
  99. 1930 data 170, 2, 208, 8, 162, 3, 189, 126, 196, 133, 251, 96
  100. 1940 data 165, 254, 56, 237, 170, 2, 201, 1, 208, 8, 162, 9
  101. 1950 data 189, 126, 196, 133, 251, 96, 162, 2, 189, 126, 196, 133
  102. 1960 data 251, 96, 165, 253, 208, 35, 238, 171, 2, 32, 154, 193
  103. 1970 data 173, 172, 2, 208, 1, 96, 173, 173, 2, 208, 4, 32
  104. 1980 data 133, 194, 96, 165, 254, 201, 1, 208, 4, 32, 185, 194
  105. 1990 data 96, 32, 4, 195, 96, 201, 39, 208, 32, 32, 154, 193
  106. 2000 data 173, 172, 2, 208, 1, 96, 173, 173, 2, 208, 4, 32
  107. 2010 data 151, 194, 96, 165, 254, 201, 1, 208, 4, 32, 203, 194
  108. 2020 data 96, 32, 22, 195, 96, 238, 171, 2, 32, 154, 193, 173
  109. 2030 data 172, 2, 208, 4, 32, 81, 195, 96, 32, 154, 193, 173
  110. 2040 data 172, 2, 208, 4, 32, 54, 195, 96, 173, 173, 2, 208
  111. 2050 data 4, 32, 159, 194, 96, 165, 254, 201, 1, 208, 4, 32
  112. 2060 data 211, 194, 96, 32, 30, 195, 96, 32, 43, 193, 202, 48
  113. 2070 data 45, 224, 25, 176, 41, 134, 251, 32, 43, 193, 202, 48
  114. 2080 data 33, 224, 25, 176, 29, 134, 252, 32, 217, 195, 32, 43
  115. 2090 data 193, 202, 48, 46, 224, 40, 176, 42, 134, 253, 32, 43
  116. 2100 data 193, 32, 245, 195, 134, 254, 32, 26, 196, 96, 32, 94
  117. 2110 data 192, 165, 251, 197, 252, 48, 18, 240, 16, 32, 68, 229
  118. 2120 data 162, 180, 32, 167, 192, 232, 224, 211, 208, 248, 32, 174
  119. 2130 data 192, 96, 32, 110, 192, 138, 240, 22, 224, 41, 176, 18
  120. 2140 data 202, 169, 39, 56, 229, 253, 133, 254, 228, 254, 176, 2
  121. 2150 data 232, 96, 208, 8, 232, 96, 32, 234, 192, 32, 135, 192
  122. 2160 data 32, 248, 192, 32, 135, 192, 166, 251, 32, 240, 233, 165
  123. 2170 data 253, 240, 11, 165, 209, 24, 101, 253, 133, 209, 144, 2
  124. 2180 data 230, 210, 169, 32, 160, 0, 145, 209, 200, 196, 254, 208
  125. 2190 data 249, 228, 252, 240, 4, 230, 251, 208, 217, 96, 32, 43
  126. 2200 data 193, 202, 48, 41, 224, 25, 176, 37, 134, 214, 32, 43
  127. 2210 data 193, 202, 48, 32, 224, 40, 176, 28, 134, 211, 32, 43
  128. 2220 data 193, 173, 134, 2, 133, 251, 142, 134, 2, 32, 253, 174
  129. 2230 data 32, 119, 196, 165, 251, 141, 134, 2, 96, 32, 94, 192
  130. 2240 data 32, 110, 192, 32, 108, 229, 32, 164, 170, 96, 64, 93
  131. 2250 data 91, 107, 109, 110, 112, 113, 114, 115, 125, 64, 110, 112
  132. 2260 data 114, 64, 109, 113, 125, 93, 107, 109, 112, 93, 110, 115
  133. 2270 data 125, 90, 69, 73, 76, 69, 78, 87, 69, 82, 84, 32
  134. 2280 data 60, 49, 32, 79, 68, 69, 82, 32, 62, 50, 53, 32
  135. 2290 data 32, 73, 78, 32, 58, 83, 80, 65, 76, 84, 69, 78
  136. 2300 data 87, 69, 82, 84, 32, 60, 49, 32, 79, 68, 69, 82
  137. 2310 data 32, 62, 52, 48, 32, 73, 78, 32, 58, 76, 65, 69
  138. 2320 data 78, 71, 69, 32, 76, 73, 78, 73, 69, 32, 90, 85
  139. 2330 data 32, 60, 32, 79, 68, 69, 82, 32, 90, 85, 32, 62
  140. 2340 data 32, 32, 73, 78, 32, 58, 83, 80, 65, 76, 84, 69
  141. 2350 data 32, 43, 32, 76, 65, 69, 78, 71, 69, 32, 76, 73
  142. 2360 data 78, 73, 69, 32, 62, 52, 48, 32, 32, 73, 78, 32
  143. 2370 data 58, 90, 69, 73, 76, 69, 32, 43, 32, 76, 65, 69
  144. 2380 data 78, 71, 69, 32, 76, 73, 78, 73, 69, 32, 62, 50
  145. 2390 data 53, 32, 32, 73, 78, 32, 58, 82, 73, 67, 72, 84
  146. 2400 data 85, 78, 71, 32, 87, 69, 82, 84, 32, 90, 85, 32
  147. 2410 data 62, 32, 40, 48, 45, 49, 41, 32, 32, 73, 78, 32
  148. 2420 data 58, 90, 69, 73, 76, 69, 32, 49, 32, 73, 83, 84
  149. 2430 data 32, 62, 32, 65, 76, 83, 32, 90, 69, 73, 76, 69
  150. 2440 data 32, 50, 32, 32, 73, 78, 32, 58
  151.